unit fuQImport2License;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TfmQImport2License = class(TForm)
    reLicense: TRichEdit;
    btnPrint: TButton;
    btnOK: TButton;
    procedure btnPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmQImport2License: TfmQImport2License;

implementation

{$R *.dfm}

procedure TfmQImport2License.btnPrintClick(Sender: TObject);
begin
  reLicense.Print(Caption);
end;

procedure TfmQImport2License.FormCreate(Sender: TObject);
var
  resStream: TResourceStream;
begin
  if FindResource(HInstance, 'qi_eula', RT_RCDATA) > 0 then
  begin
    resStream := TResourceStream.Create(HInstance, 'qi_eula', RT_RCDATA);
    try
      reLicense.Lines.LoadFromStream(resStream);
    finally
      resStream.Free;
    end;
  end;
end;

end.
